Postcard CD: Niagara Parks/Postcard CD: Niagara Parks (2004).iso/pc/prv-f.dxr/BehindTheFalls_10.ls

Text File | 2002-01-09 | 661 b | 34 lines

global castName

on beginSprite me
  if castName = "BotanicalGardens" then
    sprite(56).blend = 100
    sprite(56).memberNum = sprite(56).memberNum + 14
  end if
end

on mouseEnter me
  if castName <> "BotanicalGardens" then
    sprite(56).blend = 100
    sprite(56).memberNum = sprite(56).memberNum + 14
  end if
end

on mouseLeave me
  if castName <> "BotanicalGardens" then
    sprite(56).blend = 50
    sprite(56).memberNum = sprite(56).memberNum - 14
  end if
end

on mouseDown me
  global castIndex, PauseSS
  if PauseSS = 1 then
    PauseSS = 0
    sprite(100).member = member(8, 2)
  end if
  castIndex = 6
  castName = "BotanicalGardens"
  go(2)
end